Option Explicit

' ==================================================
' Set
' ==================================================
' 创建一个 HashSet 对象
Public Function createHashSet() As ISet
    Dim result As HashSet
    Set result = New HashSet

    Set createHashSet = result
End Function

' 创建一个可以维持插入顺序的 LinkedHashSet
Public Function createLinkedHashSet() As ISet
    Dim result As LinkedHashSet
    Set result = New LinkedHashSet

    Set createLinkedHashSet = result
End Function
